home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / m2gem106.lzh / CRYSTAL1.06 / SRC / TOOLBOX / GRAFTOOL.DEF < prev    next >
Encoding:
Modula Definition  |  1994-01-15  |  1.5 KB  |  71 lines
  1. DEFINITION MODULE GrafTool;
  2.  
  3. (*
  4. Grafics Tools.
  5.  
  6. UK __DATE__ __TIME__
  7. *)
  8.  
  9. (*DEF_SWITCHES*)
  10.  
  11. FROM RcMgr   IMPORT GPnt,GRect;
  12. #ifdef FTLM2
  13. FROM GrafMgr IMPORT MFormPtr,MouseColors;
  14. #else
  15. FROM GrafMgr IMPORT MFormPtr;
  16. #endif
  17. FROM PORTAB  IMPORT SIGNEDWORD,UNSIGNEDWORD;
  18.  
  19. #ifndef FTLM2
  20. IMPORT AES;
  21. #endif
  22.  
  23. #ifndef FTLM2
  24. TYPE MouseColors = AES.ObjectColors;
  25. #endif
  26.  
  27. TYPE MouseData = ARRAY[0..15] OF SIGNEDWORD;
  28.  
  29. PROCEDURE NewMouse(    XHotSpot  : UNSIGNEDWORD;
  30.                        YHotSpot  : UNSIGNEDWORD;
  31.                        ForeGround: MouseColors;
  32.                        BackGround: MouseColors;
  33.                    VAR Mask      : MouseData;
  34.                    VAR Data      : MouseData): MFormPtr;
  35.  
  36. PROCEDURE DisposeMouse(VAR Form: MFormPtr);
  37.  
  38. PROCEDURE UserMouse(UserDefForm: MFormPtr);
  39.  
  40. TYPE MouseForms = (Arrow,
  41.                    TextCursor,
  42.                    BusyBee,
  43.                    PointingHand,
  44.                    FlatHand,
  45.                    ThinCross,
  46.                    ThickCross,
  47.                    OutlinedCross);
  48.  
  49. PROCEDURE MouseForm(Form: MouseForms);
  50.  
  51. PROCEDURE LastMouse;
  52.  
  53. PROCEDURE ShowMouse;
  54.  
  55. PROCEDURE HideMouse;
  56.  
  57. PROCEDURE BusyMouse;
  58.  
  59. PROCEDURE ArrowMouse;
  60.  
  61. PROCEDURE GetMouse(VAR Pos: GPnt);
  62.  
  63. PROCEDURE RubberBox(Start: GPnt; VAR Box: GRect);
  64.  
  65. PROCEDURE HotDragBox(VAR Pos  : GPnt;
  66.                      VAR Box  : GRect;
  67.                          Limit: GRect;
  68.                          Tree : AES.TreePtr): AES.ObjectPtr;
  69.  
  70. END GrafTool.
  71.